home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue57 / alfresco / tststr1.dpr < prev    next >
Encoding:
Text File  |  2000-04-02  |  922 b   |  49 lines
  1. program tststr1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   Windows,
  7.   SysUtils;
  8.  
  9. function CountAlpha1(S : string) : integer;
  10. var
  11.   i : integer;
  12. begin
  13.   Result := 0;
  14.   for i := 1 to length(S) do
  15.     if (S[i] in ['A'..'Z','a'..'z']) then
  16.       inc(Result);
  17. end;
  18.  
  19. function CountAlpha2(const S : string) : integer;
  20. var
  21.   i : integer;
  22. begin
  23.   Result := 0;
  24.   for i := 1 to length(S) do
  25.     if (S[i] in ['A'..'Z','a'..'z']) then
  26.       inc(Result);
  27. end;
  28.  
  29. var
  30.   i : integer;
  31.   StartTime : DWORD;
  32. begin
  33.   writeln('testing routine 1...');
  34.   StartTime := GetTickCount;
  35.   for i := 1 to 10000000 do
  36.     CountAlpha1('The cat sat on the mat');
  37.   writeln('time taken: ', GetTickCount - StartTime);
  38.  
  39.   writeln('testing routine 2...');
  40.   StartTime := GetTickCount;
  41.   for i := 1 to 10000000 do
  42.     CountAlpha2('The cat sat on the mat');
  43.   writeln('time taken: ', GetTickCount - StartTime);
  44.  
  45.  
  46.  
  47.   readln;
  48. end.
  49.